home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
games
/
egavga
/
splt244.exe
/
TESTS
/
T2-11.BAS
next >
Wrap
BASIC Source File
|
1991-07-21
|
286b
|
12 lines
10 OPEN "t2-11.plt" FOR OUTPUT AS #1
20 PRINT #1,"IN;IP4000,3000,5000,4000;"
30 PRINT #1,"SP1;SC0,1,0,1;"
40 PI=3.1416
50 FOR T=0 TO 2*PI + PI/20 STEP PI/20
60 X=COS(T)
70 Y=SIN(T)
80 PRINT #1,USING "&+#.####+#.####&";"PA",X,Y,"PD;"
90 NEXT T
100 PRINT #1,"PU;SP0;"
110 END